10 IFPEEK(828)<>24THENLOAD"MULTIFILL",8,1
20 POKE53281,14:POKE53280,14
30 PRINT"[147]            COLOUR FILL DEMO[154]"           "
40 K[178]14:W[178]40:H[178]24:LB[178]40:HB[178]4:[141]1040
50 K[178]160:W[178]40:H[178]24:LB[178]40:HB[178]4:A$[178]"C":[141]1040:A$[178]""
60 [129]A[178]0[164]16
70 K[178]A:W[178]16:H[178]1:HB[178][181](1517[173]256):LB[178]1517[171]HB[172]256
71 [129]B[178]0[164]10
72 W[178]W[170]2:H[178]H[170]2:LB[178]LB[171]41:[139]LB[179]0[167]HB[178]HB[171]1:LB[178]LB[170]255
73 [141]1040:[130]B,A
201 C[178]2000:[141]1030
210 [151]53281,0:[153]"LOAD"
220 [153]"SYSUSE THIS UTILITY TO FILL BLOCKS OF              COLOUR - SYS 828"
221 C[178]1000:[141]1030
230 K[178]160:W[178]10:H[178]5:LB[178]245:HB[178]4:A$[178]"C":[141]1040
240 [129]A[178]1[164]20
250 K[178]5[170]A:W[178]10:H[178]5:LB[178]245:HB[178]4:A$[178]"":[141]1040
260 [129]B[178]0[164]200:[130]B,A
270 [153]"OR TO FILL BLOCKS WITH CHARACTERS"
280 [153]"              - SYS 835
290 FORA=20TO0STEP-1
300 K=83+A:W=10:H=5:LB=20:HB=7:A$="C":GOSUB1040
310 FORB=0TO200:NEXTB,A
320 FORB=0TO400:NEXT
330 PRINT"[147]":POKE53270,PEEK(53270)OR16
340 PRINT"[156]  IT ALSO WORKS IN MULTICOLOUR BUT YOU"
350 PRINT"   HAVE TO DESIGN YOUR OWN CHARACTERS
360 [151]53282,14:[151]53283,15
370 K[178]0:W[178]40:H[178]7:LB[178]144:HB[178]5:A$[178]"":[141]1040
380 [129]A[178]0[164]255:[151]1424[170]A,A:[130]
390 K[178]6:W[178]40:H[178]7:LB[178]144:HB[178]5:[141]1040
400 [129]A[178]0[164]23
410 C[178](5[170]A)[175]6[176]1
420 K[178]C:W[178]40:H[178]10:LB[178]0:HB[178]4:[141]1040
430 K[178]A[176]8:W[178]20:H[178]7:LB[178]154:HB[178]5:[141]1040
440 [129]B[178]0[164]300:[130]B,A
450 [129]B[178]0[164]500:[130]
460 [151]53270,[194](53270)[175]239
470 [129]B[178]0[164]300:[130]:[151]53281,6:[151]53280,6
480 [153]"LOADSYSYOU CAN MAKE SHAPES USING SMALLER BLOCKS"
490 K[178]160:W[178]40:H[178]21:LB[178]160:HB[178]4:A$[178]"C":[141]1040
500 K[178]7:W[178]40:H[178]21:LB[178]160:HB[178]4:A$[178]"":[141]1040
510 [129]B[178]0[164]2000:[130]
680 [135]K,W,H,LB,HB:[141]1040:[139]HB[179][177]6[167]680
681 [131]10,6,4,30,5
682 [131]2,3,2,71,5
683 [131]10,5,3,115,5
684 [131]7,1,1,156,5
685 [131]0,1,11,235,5
686 [131]8,20,11,236,5
687 [131]7,8,7,236,5
688 [131]7,5,7,251,5
689 [131]7,2,2,4,7
690 [131]7,2,1,6,7
691 [131]7,2,1,20,7
692 [131]7,2,2,22,7
693 [131]7,1,2,244,5
694 [131]7,1,1,245,5
695 [131]7,1,1,249,5
696 [131]7,1,2,250,5
697 [131]5,3,4,110,6
699 [129]B[178]0[164]5000:[130]
700 [153]"LOAD":[151]53280,6:[151]53281,6
710 [153]"CONTFOR YOUR CONVENIENCE THE POKE LOCATIONS"
720 [153]"FOR BOTH SCREEN CHARACTERS AND SCREEN"
730 [153]"COLOURS USE THE SAME MEMORY GRID."
740 [153]"FOR EXAMPLE:"
750 [153]"IF A CHARACTER BLOCK IS PLACED AT THE"
760 [153]"SCREEN LOCATION 1717:";:C[178]3000:[141]1030
770 [129]A[178]1[164]40:K[178]32:W[178]10:H[178]5:HB[178][181](1717[173]256):LB[178]1717[171]256[172]HB:A$[178]"C":[141]1040
780 K[178]83:[141]1040:[130]
781 C[178]3000:[141]1030
790 [153]"CMD. THE COLOUR IS ALSOPOKED TO 1717:":C[178]2000:[141]1030
800 A$[178]"":[129]A[178]1[164]20:C[178]100
801 K[178]7:[141]1040
802 [141]1030
803 K[178]8:[141]1040
804 [141]1030
805 [130]
810 [153]"PRESS ANY KEY";
811 K[178]10:W[178]13:H[178]1:HB[178][181](1996[173]256):LB[178]1996[171]256[172]HB:[141]1040
812 [161]B$:[139]B$[179][177]""[167]830
813 K[178]0:[141]1040:[137]811
830 [153]"LOAD":[151]53280,0:[151]53281,0
840 [153]"SYSTO USE THE UTILITY SET UP THE PARAMETERSLIKE THIS:
850 C=3000:GOSUB1030
860 PRINT"[150]POKE 2   [154]WITH A COLOUR OR SCREEN"
870 PRINT"         CHARACTER VALUE"
880 GOSUB1030
890 PRINT"[150]POKE 250 [154]WITH THE BLOCK WIDTH"
900 GOSUB1030
910 PRINT"[150]POKE 251 [154]WITH THE BLOCK HEIGHT"
920 GOSUB1030
930 PRINT"[150]POKE 252 [154]WITH THE LOW BYTE OF THE TOP"
940 PRINT"         LEFT SQUARE OF THE BLOCK"
950 GOSUB1030
960 PRINT"[150]POKE 253 [154]WITH THE HIGH BYTE OF THE TOP"
970 PRINT"         LEFT SQUARE OF THE BLOCK"
980 GOSUB1030
990 PRINT"[150]SYS 828  [154]FOR C[153]O[154]L[155]O[158]UR[153]S"
1000 GOSUB1030
1010 PRINT"[150]SYS 835  [154]FOR CHARACTERS[145]"
1011 PRINT"PRESS ANY KEY";
1012 K=7:W=13:H=1:HB=INT(1996/256):LB=1996-256*HB:GOSUB1040
1013 GETB$:IFB$<>""THEN1020
1014 K=0:GOSUB1040:GOTO1012
1020 K=32:A$="C":GOSUB1040:PRINT"[145][145][145]":END
1030 FORB=0TOC:NEXT:RETURN
1040 POKE2,K:POKE250,W:POKE251,H:POKE252,LB:POKE253,HB:IFA$="C"THENSYS835:RETURN
1050 SYS828:RETURN